From: Paul Eggert <eggert@cs.ucla.edu>
Date: Wed, 16 Mar 2011 08:22:49 +0000 (-0700)
Subject: * font.c (font_get_spec): Remove; unused.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1~1^2~324^2~4366^2~24
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=638fc4d449ce4aed96c8edca0768a3a5f36572f2;p=emacs.git

* font.c (font_get_spec): Remove; unused.
---

diff --git a/src/ChangeLog b/src/ChangeLog
index 3cd5295f3c3..0e691e8ce8f 100644
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -4,6 +4,7 @@
 	pointers to constants.
 	(font_parse_fcname): Remove unused vars.
 	(font_delete_unmatched): Now static.
+	(font_get_spec): Remove; unused.
 
 	* fns.c (require_nesting_list, require_unwind): Now static.
 	(Ffillarray): Rename locals to avoid shadowing.
diff --git a/src/font.c b/src/font.c
index 25e2968df7f..ed3b3aeefc5 100644
--- a/src/font.c
+++ b/src/font.c
@@ -2949,22 +2949,6 @@ font_get_name (Lisp_Object font_object)
 }
 
 
-/* Return the specification of FONT_OBJECT.  */
-
-Lisp_Object
-font_get_spec (Lisp_Object font_object)
-{
-  Lisp_Object spec = font_make_spec ();
-  int i;
-
-  for (i = 0; i < FONT_SIZE_INDEX; i++)
-    ASET (spec, i, AREF (font_object, i));
-  ASET (spec, FONT_SIZE_INDEX,
-	make_number (XFONT_OBJECT (font_object)->pixel_size));
-  return spec;
-}
-
-
 /* Create a new font spec from FONT_NAME, and return it.  If FONT_NAME
    could not be parsed by font_parse_name, return Qnil.  */